unit UreticiFirmaTanimlari;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormClass, XPMan, StdActns, ActnList, cxStyles, cxCustomData,
  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
  cxCheckBox, ADODB, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
  ComCtrls, cxDBLookupComboBox;

type
  TfmUreticiFirmaTanimlari = class(TfmFormClass)
    PC1: TPageControl;
    TabSheet1: TTabSheet;
    Grid1: TcxGrid;
    grdListe: TcxGridDBTableView;
    Grid1Level1: TcxGridLevel;
    aqFirmaTanim: TADOQuery;
    dsFirmaTanim: TDataSource;
    grdListeMarkaId: TcxGridDBColumn;
    grdListeSira: TcxGridDBColumn;
    grdListeDefaultFirma: TcxGridDBColumn;
    aqMarka: TADOQuery;
    dsMarka: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmUreticiFirmaTanimlari: TfmUreticiFirmaTanimlari;

implementation

uses data;

{$R *.dfm}

procedure TfmUreticiFirmaTanimlari.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  fmUreticiFirmaTanimlari := nil;
end;

procedure TfmUreticiFirmaTanimlari.FormCreate(Sender: TObject);
begin
  inherited;
  OpenQueryOnDataSet(aqMarka.SQL.Text, aqMarka);
  OpenQueryOnDataSet(aqFirmaTanim.SQL.Text, aqFirmaTanim);
end;

end.

